home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 March / inter@ivo 1997-03.iso / cybint14 / bin / ml.dxr / 00160.ls < prev    next >
Encoding:
Text File  |  1997-02-21  |  510 b   |  24 lines
  1. on exitFrame
  2.   global act, LocX, LocY
  3.   if act = 0 then
  4.     if rollOver(42) or rollOver(43) then
  5.       cursor([901, 902])
  6.     else
  7.       HotSpots(3, 28)
  8.     end if
  9.     set rand to (the timer mod 13) + 1
  10.     set localX to getAt(LocX, rand)
  11.     set localY to getAt(LocY, rand)
  12.     set the locH of sprite 2 to localX
  13.     set the locV of sprite 2 to localY
  14.   end if
  15.   if act = 1 then
  16.     if rollOver(45) or rollOver(46) then
  17.       cursor([901, 902])
  18.     else
  19.       cursor(-1)
  20.     end if
  21.   end if
  22.   Loopframe()
  23. end
  24.